Sub muestra_Do_Until_Loop()
    Dim a As Integer
    a = 5
    Do Until a < 1
        Debug.Print "a = " & a
        a = a - 1
    Loop
End Sub
